home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls088.hpux.Z / tls088.hpux / lib / vtcl / tests / autolock3.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.2 KB  |  47 lines
  1. # CVS $Id: autolock3.tcl,v 1.1 1995/02/03 17:15:04 zibi Exp $
  2. # @(#) autolock3.tcl 11.4 95/01/31 
  3. # Autolock tests on  ToggleBtns, checkbox, radiobox, option menu
  4.  
  5. proc autoLockCB {cbs} {
  6.     sleep 4
  7.     VtUnLock
  8. }
  9.  
  10. proc lockAndQuitCB {cbs} {
  11.     sleep 4
  12.     VtUnLock
  13.     VtClose
  14. }
  15.  
  16. set ap [VtOpen autolock]
  17.  
  18. set dlog [VtFormDialog $ap.form -cancel -cancelCallback lockAndQuitCB \
  19.                     -autoLock lockAndQuitCB]
  20.  
  21. set rc1 [VtRowColumn $dlog.rc1 -vertical]
  22.  
  23. set toggle [VtToggleButton $rc1.toggle -callback autoLockCB \
  24.                           -autoLock autoLockCB]
  25.  
  26. set cbox  [VtCheckBox $rc1.checkbox -callback autoLockCB \
  27.                           -autoLock autoLockCB]
  28. set ctoggle1 [VtToggleButton $cbox.ctoggle1]
  29. set ctoggle2 [VtToggleButton $cbox.ctoggle2]
  30.  
  31. set rbox  [VtRadioBox $rc1.radiobox -callback autoLockCB \
  32.                           -autoLock autoLockCB]
  33. set rtoggle1 [VtToggleButton $rbox.rtoggle1]
  34. set rtoggle2 [VtToggleButton $rbox.rtoggle2]
  35.  
  36. set menu [VtOptionMenu $rc1.optmenu -label "Pick one:" -callback autoLockCB \
  37.                -autoLock autoLockCB]
  38. set but1 [VtPushButton $menu.but1  -label Saab]
  39. set but2 [VtPushButton $menu.but2  -label Acura]
  40. set but3 [VtPushButton $menu.but3 -label Lexus]
  41.  
  42.  
  43. VtShow $dlog
  44.  
  45. VtMainLoop
  46.  
  47.